until an unused name is found, and then return that name.\n\
Optional second argument ignore specifies a name that is okay to use\n\
\(if it is in the sequence to be tried)\n\
-even if a buffer with that name exists.
+even if a buffer with that name exists.")
(name, ignore)
register Lisp_Object name, ignore;
{
: selected_window,
buf);
- return Qnil;
+ return buf;
}
DEFUN ("pop-to-buffer", Fpop_to_buffer, Spop_to_buffer, 1, 2, 0,
Fset_buffer (buf);
record_buffer (buf);
Fselect_window (Fdisplay_buffer (buf, other));
- return Qnil;
+ return buf;
}
DEFUN ("current-buffer", Fcurrent_buffer, Scurrent_buffer, 0, 0, 0,
b = XBUFFER (buffer);
/* If the overlay has changed buffers, do a thorough redisplay. */
- if (! EQ (buffer, XMARKER (OVERLAY_START (overlay))->buffer))
+ if (b != XMARKER (OVERLAY_START (overlay))->buffer)
windows_or_buffers_changed = 1;
else
/* Redisplay the area the overlay has just left, or just enclosed. */